home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / CGBDI.z / CGBDI
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCGGGGBBBBDDDDIIII((((3333FFFF))))                                                            CCCCGGGGBBBBDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CGBDI   - CGBDI computes the determinant of a band matrix using the
  10.      factors computed by CGBCO or CGBFA.  If the inverse is needed, use CGBSL
  11.      N  times.
  12.  
  13.  
  14. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  15.       SUBROUTINE CGBDI(ABD,LDA,N,ML,MU,IPVT,DET)
  16.  
  17. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  18.      On Entry
  19.  
  20.      AAAABBBBDDDD COMPLEX(LDA, N)
  21.         the output from CGBCo or CGBFA.
  22.  
  23.      LLLLDDDDAAAA INTEGER
  24.         the leading dimension of the array  ABD .
  25.  
  26.      NNNN INTEGER
  27.         the order of the original matrix.
  28.  
  29.      MMMMLLLL INTEGER
  30.         number of diagonals below the main diagonal.
  31.  
  32.      MMMMUUUU INTEGER
  33.         number of diagonals above the main diagonal.
  34.  
  35.      IIIIPPPPVVVVTTTT INTEGER(N)
  36.         the pivot vector from CGBCO or CGBFA.  On Return
  37.  
  38.      DDDDEEEETTTT COMPLEX(2)
  39.         determinant of original matrix.
  40.         Determinant = DET(1) * 10.0**DET(2)
  41.         with  1.0 .LE. CABS1(DET(1)) .LT. 10.0
  42.         or  DET(1) = 0.0 .  LINPACK.  This version dated 08/14/78 .  Cleve
  43.      Moler, University of New Mexico, Argonne National Lab.  Subroutines and
  44.      Functions Fortran ABS,AIMAG,CMPLX,REAL
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.